﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim rs,sql,Runtxt
	Runtxt=qingtian.RunStr
%>
	<card title="发布新广告"><p align="left">

	广告标题：<br/>
	<input emptyok="true"  name="name<%=Runtxt%>" maxlength="50" value="" type="text"/><br/>
	广告地址：<br/>
	<input emptyok="true"  name="url<%=Runtxt%>"  value="http://" type="text"/><br/>
	<anchor>确定提交
    	<go href="addgg.asp?Action=login&amp;sid=<%=sid%>" method='post'>
        <postfield name="name" value="$(name<%=Runtxt%>)"/>
        <postfield name="url" value="$(url<%=Runtxt%>)"/>
    	</go>
	</anchor><br/>

-------------<br/>
<a href='gg.asp?sid=<%=sid%>'>返回广告管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim name,url,rs,sql,errs
		name=Request.form("name")
		url=Request.form("url")

		errs=""
		if name="" then errs=errs & "广告标题不能为空<br/>"
		if len(url)<8 then errs=errs & "广告地址不能为空<br/>"
	%>
	<card id="login" title="发布新广告" ontimer="gg.asp?sid=<%=sid%>"><timer value="20"/>
		<p align="left">
	<%
	IF len(errs)=0 then


		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select  * FROM qingtian_gg"
		rs.open sql,conn,1,3
		rs.addnew
			rs("name")=name
			rs("url")=url
		rs.update()

		rs.Close
		Set rs = Nothing
		%>发布新广告成功!<br/><%

	else%>
		<%=errs%>
		<a href="addgg.asp?sid=<%=sid%>">返回修改</a><br/>
<%	end if
%>
<a href='gg.asp?sid=<%=sid%>'>返回广告管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 


%>
